home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / SoundAndMusic / cmix / lib / osciln.c < prev    next >
Encoding:
Text File  |  1989-02-25  |  239 b   |  14 lines
  1. float osciln(amp,si,farray,len,phs)
  2. float amp,si,*farray,*phs;
  3. register len;
  4. {
  5.     register i =  *phs;   
  6.     *phs += si;            
  7.     while(*phs >= len)
  8.            *phs -= len;     
  9.     while(*phs < 0)
  10.         *phs += len;
  11.     return(*(farray+i) * amp); 
  12.  
  13. } 
  14.